68
|
I have a hierarchy and I need to filter only root items that match, with thier childs

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 3
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "R1"
var_Items = oComboBox.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
|
66
|
I have a hierarchy and I need to filter only parent items that match, including thier childs

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 1
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "R1"
var_Items = oComboBox.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"C1")
var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

Dim oComboBox as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
oComboBox.HeaderAppearance = 4
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 32
var_Columns = oComboBox.Columns
var_Columns.Add("Item")
var_Column = var_Columns.Add("Pos")
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column.FormatColumn = "1 index ``"
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.EndUpdate()
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = .f.
oComboBox.AutoSearch = .t.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
' oComboBox.Columns.Add("Default").AutoSearch = 1
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 1"
var_Items = oComboBox.Items
var_Items.AddItem("This is a bit of text")
var_Items.AddItem("This is a another text")
oComboBox.EndUpdate()
|
94
|
I can't scroll to the end of the data. What can I do

Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
Dim var_Items2 as P
Dim var_Items3 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ScrollBySingleLine = .t.
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
' var_Items.ItemHeight(var_Items.AddItem(0)) = 13
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemHeight(AddItem(0)) = 13"
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items1 = oComboBox.Items
' var_Items1.ItemHeight(var_Items1.AddItem(1)) = 26
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.ItemHeight(AddItem(1)) = 26"
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items2 = oComboBox.Items
' var_Items2.ItemHeight(var_Items2.AddItem(2)) = 36
oComboBox.TemplateDef = "dim var_Items2"
oComboBox.TemplateDef = var_Items2
oComboBox.Template = "var_Items2.ItemHeight(AddItem(2)) = 36"
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items3 = oComboBox.Items
' var_Items3.ItemHeight(var_Items3.AddItem(3)) = 48
oComboBox.TemplateDef = "dim var_Items3"
oComboBox.TemplateDef = var_Items3
oComboBox.Template = "var_Items3.ItemHeight(AddItem(3)) = 48"
oComboBox.PutItems(oComboBox.GetItems(0))
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 40
oComboBox.ScrollWidth = 0
oComboBox.ScrollHeight = 0
oComboBox.DropDownButtonWidth = 40
oComboBox.EndUpdate()
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2067 'exFilterBarCompact + exFilterBarSingleLine + exFilterBarVisible + exFilterBarPromptVisible
var_Column2 = oComboBox.Columns.Item(0)
var_Column2.FilterType = 240
var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

Dim oComboBox as P
Dim rs as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
rs = OLE.Create("ADODB.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10311
var_Items = oComboBox.Items
var_Items.EnsureVisibleItem(var_Items.FocusItem)
oComboBox.EndUpdate()
|
146
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
Dim var_Column4 as local
Dim var_Column5 as local
Dim var_Column6 as local
Dim var_Column7 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oComboBox.Template = "Background(324) = 16777216" // oComboBox.Background(324) = 16777216
oComboBox.Template = "Background(325) = 33554432" // oComboBox.Background(325) = 33554432
oComboBox.Template = "Background(327) = 50331648" // oComboBox.Background(327) = 50331648
oComboBox.Template = "Background(404) = 15790320" // oComboBox.Background(404) = 15790320
oComboBox.Template = "Background(276) = 15790320" // oComboBox.Background(276) = 15790320
oComboBox.Template = "Background(511) = 15790320" // oComboBox.Background(511 'exScrollHoverAll + exDateScrollThumb) = 15790320
' oComboBox.Columns.Add("S").Width = 32
var_Column = oComboBox.Columns.Add("S")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 32"
' oComboBox.Columns.Add("Level 1").LevelKey = 1
var_Column1 = oComboBox.Columns.Add("Level 1")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.LevelKey = 1"
' oComboBox.Columns.Add("Level 2").LevelKey = 1
var_Column2 = oComboBox.Columns.Add("Level 2")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.LevelKey = 1"
' oComboBox.Columns.Add("Level 3").LevelKey = 1
var_Column3 = oComboBox.Columns.Add("Level 3")
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.LevelKey = 1"
' oComboBox.Columns.Add("E1").Width = 32
var_Column4 = oComboBox.Columns.Add("E1")
oComboBox.TemplateDef = "dim var_Column4"
oComboBox.TemplateDef = var_Column4
oComboBox.Template = "var_Column4.Width = 32"
' oComboBox.Columns.Add("E2").Width = 32
var_Column5 = oComboBox.Columns.Add("E2")
oComboBox.TemplateDef = "dim var_Column5"
oComboBox.TemplateDef = var_Column5
oComboBox.Template = "var_Column5.Width = 32"
' oComboBox.Columns.Add("E3").Width = 32
var_Column6 = oComboBox.Columns.Add("E3")
oComboBox.TemplateDef = "dim var_Column6"
oComboBox.TemplateDef = var_Column6
oComboBox.Template = "var_Column6.Width = 32"
' oComboBox.Columns.Add("E4").Width = 32
var_Column7 = oComboBox.Columns.Add("E4")
oComboBox.TemplateDef = "dim var_Column7"
oComboBox.TemplateDef = var_Column7
oComboBox.Template = "var_Column7.Width = 32"
oComboBox.ColumnAutoResize = .f.
|
119
|
I've seen that the width of the tooltip is variable. Can I make it larger

Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ToolTipWidth = 328
' oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
var_Column = oComboBox.Columns.Add("tootip")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ToolTip = `this is a tooltip that should be very very very very very very very long`"
|
2
|
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("ColumnName")
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

' Occurs when the drop-down portion of the control is hidden.
function DropUp as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Value = ""
end function
' Fired after a new item has been selected.
function SelectionChanged as v ()
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? "You selected: "
? oComboBox.Value
end function
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = .f.
oComboBox.AutoSearch = .t.
oComboBox.AutoDropDown = .t.
oComboBox.IntegralHeight = .t.
' oComboBox.Columns.Add("Default").AutoSearch = 1
var_Column = oComboBox.Columns.Add("Default")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 1"
var_Items = oComboBox.Items
var_Items.AddItem("This is a bit of text")
var_Items.AddItem("This is a another text")
var_Items.DefaultItem = var_Items.InsertItem(,,"")
' var_Items.ItemPosition(0) = 0
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemPosition(0) = 0"
' var_Items.SortableItem(0) = .f.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.SortableItem(0) = False"
oComboBox.EndUpdate()
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
' var_Items.SelectItem(var_Items.ItemByIndex(1)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.SelectItem(ItemByIndex(1)) = True"
oComboBox.EndUpdate()
|
561
|
How I can programmatically select a row (method 2)

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oComboBox.Value = "Item 2"
oComboBox.EndUpdate()
|
88
|
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.CountLockedColumns = 1
oComboBox.BackColorLock = 15790320
oComboBox.ColumnAutoResize = .f.
' oComboBox.Columns.Add("Locked").Width = 128
var_Column = oComboBox.Columns.Add("Locked")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 128"
' oComboBox.Columns.Add("Un-Locked 1").Width = 128
var_Column1 = oComboBox.Columns.Add("Un-Locked 1")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Width = 128"
' oComboBox.Columns.Add("Un-Locked 2").Width = 128
var_Column2 = oComboBox.Columns.Add("Un-Locked 2")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.Width = 128"
' oComboBox.Columns.Add("Un-Locked 3").Width = 128
var_Column3 = oComboBox.Columns.Add("Un-Locked 3")
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.Width = 128"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("locked"),1) = "unlocked"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`locked`),1) = `unlocked`"
|
299
|
How do I vertically align a cell

Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.DrawGridLines = -2
' oComboBox.Columns.Add("MultipleLine").Def(16) = .f.
var_Column = oComboBox.Columns.Add("MultipleLine")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(16) = False"
oComboBox.Columns.Add("VAlign")
var_Items = oComboBox.Items
h = var_Items.AddItem("This is a bit of long text that should break the line")
' var_Items.CellCaption(h,1) = "top"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `top`"
' var_Items.CellVAlignment(h,1) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellVAlignment(h,1) = 0"
h = var_Items.AddItem("This is a bit of long text that should break the line")
' var_Items.CellCaption(h,1) = "middle"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `middle`"
' var_Items.CellVAlignment(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellVAlignment(h,1) = 1"
h = var_Items.AddItem("This is a bit of long text that should break the line")
' var_Items.CellCaption(h,1) = "bottom"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `bottom`"
' var_Items.CellVAlignment(h,1) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellVAlignment(h,1) = 2"
|
84
|
How do I use my own icons for my radio buttons

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Template = "RadioImage(0) = 1" // oComboBox.RadioImage(.f.) = 1
oComboBox.Template = "RadioImage(1) = 2" // oComboBox.RadioImage(.t.) = 2
' oComboBox.Columns.Add("Radio").Def(1) = .t.
var_Column = oComboBox.Columns.Add("Radio")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(1) = True"
var_Items = oComboBox.Items
var_Items.AddItem("Radio 1")
' var_Items.CellState(var_Items.AddItem("Radio 2"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellState(AddItem(`Radio 2`),0) = 1"
var_Items.AddItem("Radio 3")
|
83
|
How do I use my own icons for checkbox cells

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Template = "CheckImage(0) = 1" // oComboBox.CheckImage(0) = 1
oComboBox.Template = "CheckImage(1) = 2" // oComboBox.CheckImage(1) = 2
' oComboBox.Columns.Add("Check").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Check")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Items = oComboBox.Items
var_Items.AddItem("Check 1")
' var_Items.CellState(var_Items.AddItem("Check 2"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellState(AddItem(`Check 2`),0) = 1"
|
479
|
How do I unselect/deselect the item (Simple style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"
oComboBox.EndUpdate()
|
478
|
How do I unselect/deselect the item (DropDownList style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"
oComboBox.EndUpdate()
|
477
|
How do I unselect/deselect the item (DropDown style)
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
' var_Items1.SelectItem(var_Items1.FocusItem) = .f.
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.SelectItem(FocusItem) = False"
oComboBox.EndUpdate()
|
288
|
How do I unselect an item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = False"
|
155
|
How do I underline the numbers greater than a value

Dim oComboBox as P
Dim var_ConditionalFormat as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("%0 >= 10").Underline = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%0 >= 10")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Underline = True"
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)
|
244
|
How do I underline an item

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.ItemUnderline(var_Items.AddItem("underline")) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemUnderline(AddItem(`underline`)) = True"
|
245
|
How do I underline a cell or an item

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.CellCaptionFormat(var_Items.AddItem("gets <u>underline</u> only a portion of text"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaptionFormat(AddItem(`gets <u>underline</u> only a portion of text`),0) = 1"
|
246
|
How do I underline a cell

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.CellUnderline(var_Items.AddItem("underline"),0) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellUnderline(AddItem(`underline`),0) = True"
|
325
|
How do I turn off the auto complete feature

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AutoComplete = .f.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
328
|
How do I specify the width of the drop down window

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "WidthList() = 100" // oComboBox.WidthList() = 100
oComboBox.AllowSizeGrip = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
327
|
How do I specify the minimum width of the drop down window

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MinWidthList = 100
oComboBox.AllowSizeGrip = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
329
|
How do I specify the minimum height of the drop down window

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MinHeightList = 100
oComboBox.AllowSizeGrip = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
92
|
How do I specify the indentation of the child items relative to their parents

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 1
oComboBox.Indent = 11
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
|
330
|
How do I specify the height of the drop down window

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "HeightList() = 400" // oComboBox.HeightList() = 400
oComboBox.MinWidthList = 100
oComboBox.AllowSizeGrip = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
338
|
How do I specify the height of the control's label

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LabelHeight = 34
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
93
|
How do I specify the column where the tree lines / hierarchy are shown

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
|
483
|
How do I sort the index column as numeric

' Occurs after a new item has been inserted to Items collection.
function InsertItem as v (Item as OLE::Exontrol.ComboBox.1::HITEM)
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Items = oComboBox.Items
' var_Items.CellData(Item,1) = var_Items.ItemToIndex(Item)
oComboBox.TemplateDef = "dim var_Items,Item"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = Item
oComboBox.Template = "var_Items.CellData(Item,1) = ItemToIndex(Item)"
end function
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -1
oComboBox.ColumnAutoResize = .t.
oComboBox.ShowFocusRect = .f.
oComboBox.SingleEdit = .t.
var_Column = oComboBox.Columns.Add("Next")
' var_Column.Def(48) = 4
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(48) = 4"
' var_Column.Def(52) = 4
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(52) = 4"
var_Column1 = oComboBox.Columns.Add("Index")
var_Column1.AllowSizing = .f.
var_Column1.Width = 48
var_Column1.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
' var_Column1.Def(17) = 1
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(17) = 1"
var_Column1.SortType = 5
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.AddItem("Item 5")
var_Items.AddItem("Item 6")
var_Items.AddItem("Item 7")
var_Items.AddItem("Item 8")
var_Items.AddItem("Item 9")
var_Items.AddItem("Item 10")
oComboBox.EndUpdate()
|
229
|
How do I sort the child items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
var_Items.SortChildren(h,0,.f.)
|
79
|
How do I sort descending a column, and put the sorting icon in the column's header

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oComboBox.Columns.Item(0).SortOrder = 2
|
78
|
How do I sort ascending a column, and put the sorting icon in the column's header

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
oComboBox.Columns.Item(0).SortOrder = 1
|
72
|
How do I sort a column by numbers

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("desc").SortType = 1
var_Column = oComboBox.Columns.Add("desc")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 1"
var_Items = oComboBox.Items
var_Items.AddItem(1)
var_Items.AddItem(5)
var_Items.AddItem(10)
var_Items.SortChildren(0,0,.f.)
|
116
|
How do I show the tooltip quicker

Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ToolTipDelay = 1
' oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
var_Column = oComboBox.Columns.Add("tootip")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ToolTip = `this is a tooltip assigned to a column`"
|
181
|
How do I show or hide the sorting icons, but still need sorting

Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Sorted").SortOrder = 1
var_Column = oComboBox.Columns.Add("Sorted")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortOrder = 1"
oComboBox.Columns.Item(0).DisplaySortIcon = .f.
|
194
|
How do I show buttons for all cells in the column

Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Button")
' var_Column.Def(2) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(2) = True"
' var_Column.Def(3) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(3) = True"
oComboBox.Items.AddItem(" Button 1 ")
oComboBox.Items.AddItem(" Button 2 ")
|
193
|
How do I show buttons for all cells in the column

Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Button").Def(2) = .t.
var_Column = oComboBox.Columns.Add("Button")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(2) = True"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
109
|
How do I show alternate rows in different background color

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BackColorAlternate = 15790320
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.AddItem("Item 5")
|
559
|
How do I set an extra data for each item
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N, Shift as N, X as OLE::Exontrol.ComboBox.1::OLE_XPOS_PIXELS, Y as OLE::Exontrol.ComboBox.1::OLE_YPOS_PIXELS)
Dim i as N
oComboBox = topparent:CONTROL_ACTIVEX1.activex
i = oComboBox.ItemFromPoint(-1,-1,c,hit)
? i
? oComboBox.Items.ItemData(i)
end function
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.ItemData(var_Items.AddItem("method 1")) = "your extra data of method 1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemData(AddItem(`method 1`)) = `your extra data of method 1`"
var_Items.InsertItem(0,"your extra data of method 2","method 2")
var_Items1 = oComboBox.Items
var_Items1.DefaultItem = var_Items1.AddItem("method 3")
' var_Items1.ItemData(0) = "your extra data of method 3"
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.ItemData(0) = `your extra data of method 3`"
oComboBox.EndUpdate()
|
286
|
How do I select an item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
|
347
|
How do I select a value

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.IntegralHeight = .t.
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
oComboBox.Template = "Select(1) = `Root 1.2`" // oComboBox.Select(1) = "Root 1.2"
|
348
|
How do I select a value

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.IntegralHeight = .t.
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
oComboBox.Value = "Root 1.1"
|
466
|
How do I select a NULL/empty value

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.DefaultItem = var_Items.InsertItem(,,"")
' var_Items.ItemPosition(0) = 0
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemPosition(0) = 0"
' var_Items.SortableItem(0) = .f.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.SortableItem(0) = False"
oComboBox.Value = ""
oComboBox.EndUpdate()
|
114
|
How do I search case sensitive, using your incremental search feature

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AutoSearch = .t.
oComboBox.ASCIILower = ""
var_Columns = oComboBox.Columns
' var_Columns.Add("exStartWith").AutoSearch = 0
var_Column = var_Columns.Add("exStartWith")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 0"
' var_Columns.Add("exContains").AutoSearch = 1
var_Column1 = var_Columns.Add("exContains")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.AutoSearch = 1"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("text"),1) = "another text"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`text`),1) = `another text`"
var_Items1 = oComboBox.Items
' var_Items1.CellCaption(var_Items1.AddItem("text"),1) = "another text"
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.CellCaption(AddItem(`text`),1) = `another text`"
|
262
|
How do I retrieve the focused item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.FocusItem) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(FocusItem) = True"
|
345
|
How do I remove the drop down's border

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.DropDownBorder = 0
|
69
|
How do I remove the control's border

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Appearance = 0
|
451
|
How do I prevent scrolling the control's data after user does the sort

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.EnsureOnSort = .f.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Columns.Item(0).SortOrder = 1
|
585
|
How do I prevent changing the cell's state ( check-box state )
' Fired before cell's state is about to be changed.
function CellStateChanging as v (Cell as OLE::Exontrol.ComboBox.1::HCELL, NewState as N)
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Items = oComboBox.Items
NewState = var_Items.CellState(,Cell)
end function
Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Column1 = oComboBox.Columns.Add("P2")
' var_Column1.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(0) = True"
var_Column1.PartialCheck = .t.
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
oComboBox.EndUpdate()
|
77
|
How do I perform my own/custom sort, using my extra strings

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("desc").SortType = 5
var_Column = oComboBox.Columns.Add("desc")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 5"
var_Items = oComboBox.Items
' var_Items.CellData(var_Items.AddItem("A"),0) = "C"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(`A`),0) = `C`"
' var_Items.CellData(var_Items.AddItem("B"),0) = "B"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(`B`),0) = `B`"
' var_Items.CellData(var_Items.AddItem("C"),0) = "A"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(`C`),0) = `A`"
var_Items.SortChildren(0,0,.f.)
|
76
|
How do I perform my own/custom sort, using my extra numbers

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("desc").SortType = 5
var_Column = oComboBox.Columns.Add("desc")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortType = 5"
var_Items = oComboBox.Items
' var_Items.CellData(var_Items.AddItem(0),0) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(0),0) = 2"
' var_Items.CellData(var_Items.AddItem(1),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(1),0) = 1"
' var_Items.CellData(var_Items.AddItem(2),0) = 0
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellData(AddItem(2),0) = 0"
var_Items.SortChildren(0,0,.f.)
|
82
|
How do I perform my own sorting when user clicks the column's header

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortOnClick = 1
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")
|
334
|
How do I lock or make read-only the control

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Locked = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
331
|
How do I let user to resize the drop down window, at runtime

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AllowSizeGrip = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
332
|
How do I let user to resize only the width of the drop down window, at runtime

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AllowSizeGrip = .t.
oComboBox.AllowVResize = .f.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
333
|
How do I let user to resize only the height of the drop down window, at runtime

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AllowSizeGrip = .t.
oComboBox.AllowHResize = .f.
oComboBox.MinWidthList = 100
oComboBox.MinHeightList = 100
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
117
|
How do I let the tooltip being displayed longer

Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ToolTipPopDelay = 10000
' oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
var_Column = oComboBox.Columns.Add("tootip")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ToolTip = `this is a tooltip assigned to a column`"
|
153
|
How do I highlight in italic the numbers greater than a value

Dim oComboBox as P
Dim var_ConditionalFormat as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("%0 >= 10").Italic = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%0 >= 10")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Italic = True"
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)
|
154
|
How do I highlight in italic the numbers greater than a value

Dim oComboBox as P
Dim var_ConditionalFormat as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("%0 >= 10").StrikeOut = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%0 >= 10")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.StrikeOut = True"
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)
|
152
|
How do I highlight in bold the numbers greater than a value

Dim oComboBox as P
Dim var_ConditionalFormat as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("%0 >= 10").Bold = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%0 >= 10")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Bold = True"
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)
|
71
|
How do I hide the control's header bar

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.HeaderVisible = .f.
|
258
|
How do I get the parent item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.ItemParent(var_Items.ItemChild(h))) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(ItemParent(ItemChild(h))) = True"
|
232
|
How do I get the number or count of items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
var_Items1 = oComboBox.Items
var_Items1.AddItem(var_Items1.ItemCount)
|
261
|
How do I get the number or count of child items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
var_Items.AddItem(var_Items.ChildCount(h))
|
339
|
How do I get the handle of the drop down window

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add(oComboBox.hWndDropDown)
|
263
|
How do I get the handle of the cell

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.CellBold(,var_Items.ItemCell(h,0)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellBold(,ItemCell(h,0)) = True"
|
257
|
How do I get the first child item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.ItemChild(h)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(ItemChild(h)) = True"
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h as N
Dim oComboBox as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Date")
var_Column.SortType = 2
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterPattern = .f.
var_Column.DisplayFilterDate = .t.
var_Column.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column1 = oComboBox.Columns.Add("DateTime")
var_Column1.SortType = 3
var_Column1.DisplayFilterButton = .t.
var_Column1.DisplayFilterPattern = .f.
var_Column1.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column2 = oComboBox.Columns.Add("Time")
var_Column2.SortType = 4
var_Column2.DisplayFilterButton = .t.
var_Column2.DisplayFilterPattern = .f.
var_Column2.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column2.FormatColumn = "time(value)"
var_Column3 = oComboBox.Columns.Add("Numeric")
var_Column3.SortType = 1
var_Column3.DisplayFilterButton = .t.
var_Column3.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Column4 = oComboBox.Columns.Add("String")
var_Column4.DisplayFilterButton = .t.
var_Column4.FilterList = 1296 'exShowFocusItem + exShowCheckBox + exSortItemsDesc
var_Items = oComboBox.Items
h = var_Items.AddItem({01/27/2010})
' var_Items.CellCaption(h,1) = {01/27/2010 10:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #1/27/2010 10:00:00 AM#"
' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"
' var_Items.CellCaption(h,3) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = 1"
' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"
h = var_Items.AddItem({01/27/2011})
' var_Items.CellCaption(h,1) = {01/27/2011 09:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #1/27/2011 9:00:00 AM#"
' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"
' var_Items.CellCaption(h,3) = 11
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = 11"
' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"
h = var_Items.AddItem({11/02/2010})
' var_Items.CellCaption(h,1) = {11/02/2010 09:00:00}
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = #11/2/2010 9:00:00 AM#"
' var_Items.CellCaption(h,2) = var_Items.CellCaption(h,1)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = CellCaption(h,1)"
' var_Items.CellCaption(h,3) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,3) = 2"
' var_Items.CellCaption(h,4) = var_Items.CellCaption(h,3)
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,4) = CellCaption(h,3)"
oComboBox.Columns.Item("DateTime").DisplayFilterDate = .f.
oComboBox.EndUpdate()
|
96
|
How do I get ride of the rectangle arround focused item

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ShowFocusRect = .f.
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
470
|
How do I get notified once the user changes the Filter For field
' Fired when the user has taken an action that may have altered text in an edit control.
function EditChange as v (ColIndex as N)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
? "ColIndex: "
? ColIndex
? "Label: "
? oComboBox.EditText(0)
? "FilterFor: "
? oComboBox.EditText(-1)
end function
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 15790320
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.AddItem("Item 5")
oComboBox.EndUpdate()
|
547
|
How do I get a list of interfaces the object implemenets

Dim oComboBox as P
Dim rs as P
Dim var_PrivDBEngine as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = .f.
var_PrivDBEngine = OLE.Create("DAO.DBEngine.120")
rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
? OLE.Create("Exontrol.PropertiesList").Interfaces(rs)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
287
|
How do I find the selected item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.SelectItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectItem(h) = True"
' var_Items.ItemBold(var_Items.SelectedItem(0)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(SelectedItem(0)) = True"
|
294
|
How do I find the index of the item based on its handle

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.ItemByIndex(var_Items.ItemToIndex(h))) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(ItemByIndex(ItemToIndex(h))) = True"
|
293
|
How do I find the handle of the item based on its index

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.ItemByIndex(1)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(ItemByIndex(1)) = True"
|
297
|
How do I find an item based on a path

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
' var_Items.ItemData(var_Items.InsertItem(h,,"Child 2")) = 1234
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemData(InsertItem(h,,`Child 2`)) = 1234"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.FindPath("Root 1\Child 1")) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(FindPath(`Root 1\Child 1`)) = True"
|
296
|
How do I find an item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
' var_Items.ItemBold(var_Items.FindItem("Child 2",0)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(FindItem(`Child 2`,0)) = True"
|
107
|
How do I filter programatically the control

Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 3
var_Column.Filter = "Item*"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("")
oComboBox.Items.AddItem("Item 2")
oComboBox.ApplyFilter()
|
63
|
How do I filter for items that match exactly the specified string

Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 240
var_Column.Filter = "Item 1"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")
oComboBox.Items.AddItem("Item 3")
oComboBox.ApplyFilter()
|
234
|
How do I expand or collapse an item

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
123
|
How do I expand automatically the items while user types characters to searching for something ( incremental searching )

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ExpandOnSearch = .t.
oComboBox.LinesAtRoot = -1
oComboBox.AutoSearch = .t.
' oComboBox.Columns.Add("Column").AutoSearch = 1
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 1"
var_Items = oComboBox.Items
var_Items.InsertItem(var_Items.InsertItem(var_Items.AddItem("text"),,"some text"),,"another text")
var_Items.InsertItem(var_Items.InsertItem(var_Items.AddItem("text"),,"some text"),,"another text")
|
260
|
How do I enumerate the visible items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
' var_Items.ItemBold(var_Items.FirstVisibleItem) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(FirstVisibleItem) = True"
' var_Items.ItemBold(var_Items.NextVisibleItem(var_Items.FirstVisibleItem)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(NextVisibleItem(FirstVisibleItem)) = True"
|
259
|
How do I enumerate the siblings items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
' var_Items.ItemBold(var_Items.NextSiblingItem(var_Items.FirstVisibleItem)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(NextSiblingItem(FirstVisibleItem)) = True"
' var_Items.ItemBold(var_Items.PrevSiblingItem(var_Items.NextSiblingItem(var_Items.FirstVisibleItem))) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(PrevSiblingItem(NextSiblingItem(FirstVisibleItem))) = True"
|
256
|
How do I enumerate the root items

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ItemBold(var_Items.RootItem(0)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemBold(RootItem(0)) = True"
' var_Items.ItemUnderline(var_Items.RootItem(1)) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemUnderline(RootItem(1)) = True"
|
40
|
How do I ensure that the focused item is visible, after the user does the sort

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.EnsureOnSort = .t.
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Columns.Item(0).SortOrder = 1
|
108
|
How do I enlarge the drop down filter window

Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.FilterBarDropDownHeight = "-320"
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterBarDropDownWidth = "-320"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")
|
165
|
How do I enlarge or change the size of the control's scrollbars

Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ScrollHeight = 18
oComboBox.ScrollWidth = 18
oComboBox.ScrollButtonWidth = 18
oComboBox.ScrollButtonHeight = 18
|
112
|
How do I enable the incremental search feature within a column

Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.AutoSearch = .t.
var_Columns = oComboBox.Columns
' var_Columns.Add("exStartWith").AutoSearch = 0
var_Column = var_Columns.Add("exStartWith")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.AutoSearch = 0"
' var_Columns.Add("exContains").AutoSearch = 1
var_Column1 = var_Columns.Add("exContains")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.AutoSearch = 1"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("text"),1) = "another text"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`text`),1) = `another text`"
var_Items1 = oComboBox.Items
' var_Items1.CellCaption(var_Items1.AddItem("text"),1) = "another text"
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.CellCaption(AddItem(`text`),1) = `another text`"
|
138
|
How do I enable resizing the columns at runtime

Dim oComboBox as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ColumnsAllowSizing = .t.
oComboBox.MarkSearchColumn = .f.
oComboBox.HeaderVisible = .f.
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
oComboBox.DrawGridLines = 2
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Item 1"),1) = "Sub Item 1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Item 1`),1) = `Sub Item 1`"
var_Items1 = oComboBox.Items
' var_Items1.CellCaption(var_Items1.AddItem("Item 2"),1) = "Sub Item 2"
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.CellCaption(AddItem(`Item 2`),1) = `Sub Item 2`"
|
351
|
How do I enable resizing all the items at runtime

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ItemsAllowSizing = 1
oComboBox.DrawGridLines = 1
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
var_Items = oComboBox.Items
' var_Items.ItemHeight(var_Items.AddItem("Item 2")) = 48
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemHeight(AddItem(`Item 2`)) = 48"
oComboBox.Items.AddItem("Item 3")
|
137
|
How do I enable resizing ( changing the height ) the items at runtime

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ItemsAllowSizing = .t.
oComboBox.ScrollBySingleLine = .t.
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
var_Items = oComboBox.Items
' var_Items.ItemHeight(var_Items.AddItem("Item 2")) = 48
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemHeight(AddItem(`Item 2`)) = 48"
oComboBox.Items.AddItem("Item 3")
|
180
|
How do I enable or disable the entire column

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
' oComboBox.Columns.Add("Disabled").Enabled = .f.
var_Column = oComboBox.Columns.Add("Disabled")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Enabled = False"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem(0),1) = "0.1"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(0),1) = `0.1`"
var_Items1 = oComboBox.Items
' var_Items1.CellCaption(var_Items1.AddItem(1),1) = "1.1"
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.CellCaption(AddItem(1),1) = `1.1`"
|
268
|
How do I enable or disable a cell

Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Cell 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Cell 2`"
' var_Items.CellEnabled(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellEnabled(h,1) = False"
|
553
|
How do I display the position of the item with 0-padding

Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"
var_Column = oComboBox.Columns.Add("Items")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.FormatColumn = `((1 apos ````) lpad ``00``) + ``. `` + value`"
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_Items.AddItem("Item D")
oComboBox.EndUpdate()
|
349
|
How do I display the icons being selected in the control's label

Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
' var_Items.CellImage(var_Items.AddItem("Image 1"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 1`),0) = 1"
' var_Items.CellImage(var_Items.AddItem("Image 2"),0) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 2`),0) = 2"
' var_Items.CellImage(var_Items.AddItem("Image 3"),0) = 3
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 3`),0) = 3"
oComboBox.Template = "AssignEditImageOnSelect(0) = True" // oComboBox.AssignEditImageOnSelect(0) = .t.
oComboBox.Value = "Image 2"
|